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© مقدمه: 
يعتبر التزامن من أهم المشاكل التي تواجه المبرمج أثناء تنفيذ البرامج المختلفةء و بخاصة التي تشترك فيها أكثر من مهمة 
بموارد محددة. 


هناك لغات برمجة صممت لتطبيقات نظم الزمن الحقيقي »حيث أن تحوي اللغة في صلبها منطق المزامنة و قيود على 
الوصول اك الموارد »و في هذه اللغات يقتصر دور المبرمج على توصیف العمل الطلوب و يترك مهمة امزامنة للغة بما تملكه 


من إمكانيات »و لكن على المبرمج توصيف العمل بشكل دقيق . 

من هذه اللغات لغة ۸0۸ التي سنستخدمها في برمجة حل لسألة الحلاق 0 51۸] 8a6‏ . 

: ۸۵۸ مقدمة و تاریخ مختصر عن‎ ٥ 

لغة ۸03 هي لغة عالية المستوى صممت من أجل برمجة الأنظمة ذات الزمن الحقيقي» و على مستوى عال و ضخم. 
الاسم ۸04 مشتق من أوغستا ۸0۸ بيرن ابنة الأديب لورد بيرن» و عرفت بأول مبرمجة في العالم. 


اخترعت ۸0۸ نتيجة تصور وكالة الدفاع الأمريكية أنه لا توجد لغة مناسبة جدا لتطبيقات أنظمة الزمن الحقيقي لنظم 


Embedded SysteS ةnظiأl التحكم و‎ 


ئSyt Ebe de4‏ : التي هي عبارة عن نظام كمبيوتر موجود داخل نظام ما مثل الفرن الذكي أو الصواريخ 


الوجهة 


Barber Shop Problem : قڻںحلı‎ ةlÎun‎ %* 
: توصیف المسألة‎ 3# 


نريد تمثيل عمل صالون الحلاق »هذا الصالون يحوي عدد من الحلاقين ۲5 ۲66€ 83 N‏ و كذلك عدد مساوي من كراسي 


الحلاقة أ2 N barbers‏ .و هناك غرفة انتظار تحوي عدد من الكراسى .M waitig Chai ۲S‏ 
- إِذا لم يكن هناك زبائن ينام جميع الحلاقين » ريثما يتي زبون. 


- إذا كان جميع الحلاقين مشغولين »و كان هناك كراسي شاغرة في غرفة الانتظار فيمكن للزبون أن يجلس على 


أحد الكراسى و ينتظر. 
- إذا كان الحلاق نائم و جاء زبون »فإن الزبون يقوم بإيقاظه. 


- إذا انتهى أحد الحلاقين من الحلاقة لزبون فإنه يقوم بإيقاظ أحد الزبائن المنتظرين في غرفة الانتظار.و إذا لم 


1 ثانية »خلال هذه الفترة إذا لم يفرغ أي كرسي فإنه يغادر المحل ( الرجاء العودة في وقت لاحق..! !). 
إذا من معطيات المسألة يمكن أن نلخص النقاط الأساسية : 
N barber , M customer -‏ .„ 


- لدينا فترة انتظار للزبون ١ 56٤٥0٩4٩‏ . 


ملاحظة : 


يمكن أن نعتبر جميع الكراسي في المحل هي كراسي انتظار و لا نفرق بين كرسي انتظار و كرسي حلاق لأنها من 


حيث المنطق جميعها راسي موجودة داخل المحل. 


و قد لاحظت ذلك من خلال الحل. 


عه بنى المعطيات المستخدمة : 


: Protected Unit ةيoحملا الوحدة‎ © 


- إن الوحدة المحمية تشبه إلى حد ما مفهوم التغليف في لغات البرمجة التقليدية . 


- تحوي الموارد المشتركة ( التي نحتاج إلى تطبيق التزامن عليها و منع الوصول إليها من قبل أكثر من مهمة 
بنفس الوقت) »و التوابع و الإجرائيات التي تتعامل معها. 
يمكن هنا أن نستخدم ثلاثة أنواع من التعريفات : 
Fun cti0‏ : للقراءة فقط »لا يمكنه التعديل »و هو يعيد قيمة. 
Procedure‏ :للكتابة »يمكنه التعديل على المتحولات . 
E۷‏ : و هو عبارة عن ۲0٤801۲۵‏ مع شرط (لا يتم الدخول إليها إلا عند تحقق الشرط). 
كما نعرف المتحولات ضمن نطاق ۴٣|۷2€‏ . 
- نعرف الوحدة الnحaية‏ : barbersh0]‏ 
protected barbershop is‏ 
entry take_chair;‏ 
procedure leave;‏ 
function howmany return integer;‏ 
private‏ 
num: integer:=0;‏ 
chair_Max : integer:=5;‏ 


end barbershop; 


المتحولات : Private‏ 
- 00 : عدد الزبائن في غرفة الانتظار »و قيمته الابتدائية = 0 . 
- ×۲_18أ4٣‏ : عدد الكراسي في غرفة الانتظار »و هو عدد ثابت. 
التوابع و الإجرائيات: 

- entry take_chair when (num<chair_Max) 
. يقوم بزيادة عدد المنتظرين »يطلبه الزبون عندما يأتي إلى المحل ليحجز كرسي‎ E١٣۲۷ و هو عبارة عن‎ 
ولا يتم الدخول إليه إلا إذا كان عدد المنتظرين أقل من عدد الكراسي المتاحة ( هناك كراسي شاغرة)‎ 

- function howmany return integer 


و هو عبارة عن تابع يعيد عدد المنتظرين في غرفة الانتظار (يقابل 68€ في لغات البرمجة التقليدية و الذي 


نستخدمه للحصول على قيمة متحول خاص 0۲|۷2€). 
procedure leave‏ - 
و هي عبارة عن إجرائية يستدعيها الزبون عندما يغادر »و تقوم بإنقاص عدد المنتظرين بمقدار 1 . 


: Task) الهمة‎ 


الهمة هي الوحدة التنفيذية في ۸03 و يبدأ تنفيذها من نقطة تعريفها ( أو لحظة خلقها أي لا تحتاج إلى 


تشغيل من قبل المبرمج کما فی النیسب ۲٣۸۲٤۵۵‏ و الذي يتم تشغیله من خلال S4٣‏ ) 


بما أنه لدينا عدة زبائن و عدة حلاقين لذلك نستخدم 1۷0€ )35و التي تعرف لنا نمط مهمة ثم نخلق مهام 


من هذا النمط. 
سنعرف نمط مهمة للحلاق و نمط مهمة للزبون. 
مهمة الحلاق : barber‏ 


task type barber(id:integer) is 
entry haircut; 


end barber; 


تحوي هذا المهمة E١٣۷‏ واحد و هو يمثل عملية الحلاقة حيث نعرف أ ۸٥٥€‏ له في جسم المهمة و داخلها 
نقوم بعملية انتظار فقط (تمثل فترة الحلاقة). 


تأخذ هذه المهمة كدخل رقم مميز ( فقط لتمييزها أثناء الطباعة). 
مهمة الزبون : CUS†0۴۴‏ 


الزبون إما يدخل و يجلس على أحد الكراسى (في حال كان هناك كراسى شاغرة) و يطلب أحد الحلاقين ( من 


خلال عملية ٤‏ 5€|۵ ). 


أو في حال كانت غرفة الانتظار ممتلئة : فإنه ينتظر لفترة زمنية »و في حال لم يفرغ كرسي فإنه يغادر دون 


حلاقة. 
نستخدم هنا مفهوم ۸88۸0462۷08 للمزامنة بين الإجرائيات. 
:Rendezvous‏ 

و هي طريقة للمزامنة بين مهمتين هما : المستدعي )3||6١‏ و المستدعى عه |اأهع. 

الستدعي هنا هو الزبون و المستدعى هو الحلاق. 

حيث نعرف 8۸۲۷ في المستدعى تمثل خدمة يقدمها للزبائن (و هي الحلاقة .(hairCUË lia‏ 


امستدعى ينتظر إرسال طلب من أحد الزبائن ليقوم بقبول الطلب و تخديمه ( المستدعى ينتظر عند العبارة التي 
تمثل قبول الطلب و ينام ما لم يكن هناك طلبات ). 


امستدعي بدوره يرسل طلب و ينتظر حتى يتم تخديمه (أي يصف بالدور و ينام ثم يقوم المستدعى بإيقاظه عندما 


1 1 یحین دوره).‎ 
Caller Callee 

يمكن تمثيله بالشكل التالي : 
أي يرسل المستدعى الطلب و ينتظر ريثما ينتهى 

data transfer posaible ۳ 5 

ا 
الخدم من تخديمه(عندئذ يمكنه متابعة عمله). 
هذا ضروري حتی لا نسمح للزبون بالذهاب 
data ttatısfer possible‏ 


قبل أن تتم عملية حلاقة شعره. 


: سيناريو العمل‎ H# 
: الزبون‎ 
ب يأتي الزبون فيطلب ١أ ٤_€)ها رهنا نضمن أنه وحده من يعدل على ۸1۷۳0 لأنها موجودة ضمن لا۴)‎ 
إما يجد مكان فيدخل و يجلس و ينتظر أحد الحلاقين حتى يحلق له.‎ - 
. أو لا يجد مكان فينتظر على الباب فترة زمنية علها تفرغ أحد الكراسي ضمن هذه الفترة‎ - 
إذا فرغت أحد الكراسي خلال فترة الانتظار »يدخل الزبون المنتظر »و بالتالي لم يذهب الانتظار عالفاضي‎ " 
!!.. إذا انتهت فترة الانتظار و لم يفرغ أي كرسي »يغادر الزبون المنتظر »دون حلاقة‎ 
عندما يدخل الزبون يقوم بإيقاظ الحلاق (في حال كان نائم) من خلال إرسال طلب.‎ - 
.Aء٤ع أو يقوم بالانتظار على أحد الحلاقين و ينام »و الحلاق بدوره يوقظه من خلال عملية م‎ - 
الحلاق:‎ © 
ينفذ إجرائية تخديم الطلبات باستمرار:‎ - 
فإذا لم يكن هناك طلبات ( لا يوجد زبائن) فإنه ينام ( يتوقف عند هذه النقطة حتى لحظة وصول طلب).‎ - 
(عندما يتي زبون فإنه يوقظ الحلاق من خلال إرسال طلب .. الحلاق يكون مسبقا منتظرا هذه اللحظة).‎ 
أو يقوم بإيقاظ أحد الزبائن النائمين (المنتظرين) ليحلق له شعره.‎ - 
يقوم الحلاق بتخديم الطلب (حلاقة شعر الزبون).‎ = 


- ثم يكرر العملية ليأخذ زبون آخر ( في حال تواجده). 


خوارزمية الحل: 


Customer Barber 
Task type customer; Task type barber is 
Task body customer is entry haircut; 
select end barber ; 
Barbershop.take_chair; Task type barber is 
select loop 
Barber1.haircut; If (barbershop.howmany=o) then 
Barbershop.leave; put_line(“sleeeeep”); 
or end if; 
Barber2.haircut; accept haircut do 
Barbershop.leave; delay (haircut_time); 
or end haircut; 
Barber3.haircut; end loop; 
Barbershop.leave; end barber; 
or 
delay T; 
end customer; 


ملاحظة : يتم تحرير الكرسي بعد الحلاقة لأننا نعتبر أن كراسي الحلاقة هي من كراسي الانتظار و لا نفرق بينها 
»و بالتالى في حال كانت الغرفة ممتلئة لا يمكن دخول زبون جديد إلا بعد انتهاء أحد الزبائن من الحلاقة و مغادرته 


المحل و هذا منطقي . (ما يحدٿث في الواقع). 


: RendezVOUS ءlدختساب الحل‎ 


-- Barbershop program Using Ada (Rendezvous) 

--Author Moustafa Najm ......... M.N : Moustafa-MN@hotmail.com 
with Ada.Text_I10; 

use Ada.Text_10; 


procedure Barber_Main is 


--barbershop declaration 
protected barbershop is 
entry take_chair; 
procedure leave; 
function howmany return integer; 


private 

num: integer:=0; 

chair_Max : integer:=5; 
end barbershop; 


--barbershop body 
protected body barbershop is 


entry take_chair when (num<chair_Max)is 
begin 

num :=num+1; 

put_Line("customer take chair"); 
end take_chair; 


function howmany return integer is 
begin 

return num; 
end howmany; 


procedure leave is 
begin 

num :=num-1; 

put_line("customer left .number of customer waiting :"&num'img); 
end leave; 


end barbershop; 


0 Barber Task Type ---------------=-=---===-=-== 
task type barber(id:integer) is 
entry haircut; 
end barber; 
task body barber is 
begin 
loop 
if(barbershop.howmany=0)then 
put_line("barber"&id'img&" : I'm going to sleep"); 
end if; 
accept haircut do 
put_line("barber"&id'img&”" is cutting hair"); 
delay 2.0; 
end haircut; 
end loop; 
end barber; 


barber1:barber(1); 
barber2:barber(2); 
barber3:barber(3); 


Customer Task Type -=-----------------==-==-----==-- 
task type customer (id:integer); 
task body customer is 
begin 
delay 1.0; 
put_Line("customer"&id'img&" arrive to barber shop"); 
select 
barbershop.take_chair; 
put_Line("customer"&id'img&" enter"); 
select 
barber1.haircut; 
else 
select 
barber2.haircut; 
else 
barber3.haircut; 
end select; 
end select; 
barbershop.leave; 
or 


delay 3.0; 
put_Line("I wait for 3 second...!! customer"&id'img&" will leave"); 
end select; 


end customer; 


customer1:customer(1); 
customer2:customer(2); 
customer3:customer(3); 
customer4:customer(4); 
customer5:customer(5); 
customer6:customer(6); 
customer7:customer(7); 
customer8:customer(8); 
customer9:customer(9); 
customer10:customer(10); 


begin 


null; 
end; 


- المهمة تبدأً التنفيذ اعتبارا من لحظة خلقها .. و لذلك نجد إجرائية البرنامج الرئيسي فارغة. 
- يمكن أن نضع كذلك فترة انتظار عظمى للحلاق .. مثلا إذا لم يأت أي زبون خلال 10 ثواني ..! ! 
فإنه يغلق المحل و يذهب للبيت .. أو بروح مشوار. 


Select 


accept haircut do 


end haircut; 


or delay 10.0; 


end select; M.N MMNajm@Gmail.com 


3 barbers , 10 customers , 5 Chairs: iıفiتll‎ 


C:\Documents and Settings\M.N>gnatmake barber_main.adb -o barber 
gnatbind -x barber_main.ali 
gnatlink barber_main.ali -o barber.exe 


C:\Documents and Settings\M.N>barber 


barber 1 : I'm going to sleep 

barber 2 : I'm going to sleep 

barber 3 : I'm going to sleep 

customer 4 arrive to barber shop 

customer take chair 

customer 4 enter 

barber 1 is cutting hair 

customer 5 arrive to barber shop 

customer take chair 

customer 5 enter 

barber 2 is cutting hair 

customer 6 arrive to barber shop 

customer take chair 

customer 6 enter 

barber 3 is cutting hair 

customer 7 arrive to barber shop 

customer take chair 

customer 7 enter 

customer 1 arrive to barber shop 

customer take chair 

customer 1 enter 

customer 2 arrive to barber shop 

customer 3 arrive to barber shop 

customer 10 arrive to barber shop 

customer 8 arrive to barber shop 

customer 9 arrive to barber shop 

customer left ..number of customer waiting : 4 
customer take chair 

customer 2 enter 

customer left ..number of customer waiting : 4 
customer take chair 

customer 3 enter 

barber 3 is cutting hair 

barber 1 is cutting hair 

customer left ..number of customer waiting : 4 
customer take chair 

customer 10 enter 

chairs are full ..| wait for 3 second .. customer 8 will leave 
chairs are full ..l| wait for 3 second .. customer 9 will leave 


customer left ..number of customer waiting : 4 
customer left ..number of customer waiting : 3 
barber 3 is cutting hair 

customer left ..number of customer waiting : 2 
barber 3 is cutting hair 

customer left ..number of customer waiting : 1 
barber 3 is cutting hair 

customer left ..number of customer waiting : O 
barber 3 : I'm going to sleep 


- في البداية .. جميع الحلاقين يغطون في نوم عميق (لا يوجد زبائن ..!!). 

- يصل أول خمسة زبائن 4,5,6,7,1 : يدخلون مباشرة »و يجلسون على كراسي و يوقظون الحلاقين و يبدأ 
الحلاقون بالحلاقة لهم. 

- نلاحظ بعدها يصل 2,3,10,8,9 ينتظرون على الباب لعدم وجود كراسي فارغة. 

. ينتهي أحد الزبائن من الحلاقة و يغادر فيدخل 2 . 

ت ثم ينتهي زبون آخر من الحلاقة فيدخل 3. 

ثم ينتهي زبون آخر من الحلاقة فيدخل 10. 

- لاحظ تغير عدد الزبائن المنتظرين و دخول أحد المنتظرين على الباب عند مغادرة كل زبون. 

- 8 و9 ينتظرون فترة 3 ثواني على الباب و لا يستطيعون الدخول فيغادرون دون حلاقة. 


- أخيرا ينتهي جمیع الزبائن من الحلاقة و يغادرون »و يعود الحلاقون إلى نومهم و يستغرقون في أحلامهم 


ملاحظة :نلاحظ أنه كلما زدنا مدة انتظار الزبائن على الباب يقل عدد الزبائن الذين يغادرون دون حلاقة »و 


يظهر ذلك جليا من خلال تغيير المدة و التنفيذ. 


A0 


M.N  Moustafa-MN @hotmail.com 


: Requeu®@ مIıختwlڊ‎ Jحلا‎ 


-- Barber program 
--this solution for Barberer problem by Ada with PU & Requeue 
--Author Moustafa Najm ............ M.N : Moustafa-MN@hotmail.com 


with Ada.Text_I0); 
use Ada.Text_l10); 


procedure main is 


protected shop is 
entry enter; 
procedure leave; 


private 
count:integer:=0; 
barber:integer:=3; 
Max:integer:=5; 
entry share; 

end shop; 


protected body shop is 


entry enter when count<Max is 

begin 
count:=count+1; 
put_line("custumer enter .. and wait now to shar"); 
requeue share; 

end enter; 


entry share when barber>0 is 
begin 

barber:= barber-1;-- get haircut 
end share; 


procedure leave is 
begin 
count :=count-1; 
barber:=barber+1; 
end leave; 


end shop; 


التنفيذ : 


task Barber; -- there is no thing to do .. we can remove 


task body barber is 
begin 
null; 
end; 
Customer Task Type --------------------=--- 


task Type customer(id:integer); 
task body customer is 
begin 
select 
shop.enter; 
put_Line("customer"&id'img&" enter .. and he is share now"); 
delay 2.0; 
shop.leave; 
put_Line("customer"&id'img&" shared and left"); 
or 
delay 3.0; 
put_Line("I wait for 3 second...!! customer"&id'img&" will leave"); 
end select; 
end customer; 
Customers InstantiatioNn ----------------- 
customer1:customer(1); 
customer2:customer(2); 
customer3:customer(3); 
customer4:customer(4); 
customer5:customer(5); 
customer6:customer(6); 
customer7:customer(7); 
customer8:customer(8); 
customer9:customer(9); 
customer10:customer(10); 


begin 
null; 
end main; 


custumer enter .. and wait now to shar 
customer 1 enter .. and he is share now 
custumer enter .. and wait now to shar 
customer 2 enter .. and he is share now 
custumer enter .. and wait now to shar 
customer 3 enter .. and he is share now 


ملا حظة 


custumer enter .. and wait now to shar 
custumer enter .. and wait now to shar 
customer left ..number of customer waiting : 4 
custumer enter .. and wait now to shar 
customer 4 enter .. and he is share now 
customer 1 shared and left 

customer left ..number of customer waiting : 4 
custumer enter .. and wait now to shar 
customer 5 enter .. and he is share now 
customer 2 shared and left 

customer left ..number of customer waiting : 4 
custumer enter .. and wait now to shar 
customer 6 enter .. and he is share now 
customer 3 shared and left 

| wait for 3 second...!! customer 9 will leave 

| wait for 3 second...!! customer 10 will leave 
customer left ..number of customer waiting : 4 
customer 7 enter .. and he is share now 
customer 4 shared and left 

customer left ..number of customer waiting : 3 
customer 8 enter .. and he is share now 
customer 6 shared and left 

customer left ..number of customer waiting : 2 
customer 5 shared and left 

customer left ..number of customer waiting : 1 
customer 8 shared and left 

customer left ..number of customer waiting : O 
customer 7 shared and left 


لاحظ هنا أن الحلاق 83۲06١‏ ليس له أي أهمية »حتى أنه يمكن حذف المهمة 83۲06۴١‏ بشكل كامل. 


( حيث يهمنا فقط عدد الحلاقين »و هو عبارة عن متحول موجود ضمن الوحدة المحمية). 


لر حاول ان بجعل ملابسك أغلی شىء نيك ٠‏ جتی لا بر 


نفسك یرما اُرخچں ا رتیه 


Semaphore ۃlıختlڊ‎ Jحلا‎ 


-- Barbershop program Using Ada (Semaphore) 
--Author Moustafa Najm ... M.N : Moustafa-MNChotmail. com 


with Ada.Text_ IO; 
use Ada.Text_ IO; 


procedure barbershop is 
protected type semaphore is 


procedure decrement ; 

procedure up; 

entry down; 

private value: integer:=1; 
end semaphore; 


protected body semaphore is 
procedure decrement is 
begin 
value:= value+1; 
end decrement; 
procedure up is 


begin 
value:=value+1; 
end up; 
entry down when value>(0 is 
begin 
value:=value-1; 
end down; 


end semaphore; 


mutex , barber , customer : semaphore; 
customers: integer:=0; 
max :constant integer:=5; 


task type barberTask; 


task body barberTask is 
begin 
customer. decrement; 
barber. decrement; 
1oop 
customer. down; 
delay 2.0; 
barber .up; 
end loop; 
end barberTask; 


task type customerTask (id:integer) ; 
task body customerTask is 
begin 
--we use loop to round customers and generate infinite customers 
1oop 
mutex. down; 
if customers = max then 


r 


mutex. up; 
Put_line ("waiting room is full customer"&id'img&" will leave") 


else 
customers :=customers+1; 
mutex. up; 
customer .up; 
barber.down; 
mutex. down; 
customers :=customers-1; 
mutex. up; 
pPut_line ("Customer "& id'img &" is getting a hair-cut") ; 

end if; 
delay 2.0; 

end loop; 

end customerTask; 


barl: barberTask; 
bar2: barberTask; 
“ 


bar3: barberTask; کی‎ 
2 


customer1l : customerTask (1) ; 

customer2 :customerTask (2) ; ر‎ 
customer3: customerTask (3) ; و‎ 
customer4: customerTask (4) ; 
customer5 : customerTask (5) ; کی‎ 1 
customer6: customerTask (6) ; 2 4L 
customer7:customerTask (7) ; 

customer8 : customerTask (8) ; 

customer9:customerTask (9) ; 

customer1l0 :customerTask (10) ; 


begin 
null; 

end barbershop; 
Customer 1 is getting a hair-cut 
Customer 2 is getting a hair-cut 
Customer 3 is getting a hair-cut 
Customer 4 is getting a hair-cut 
waiting room is full customer 10 will leave 
Customer 5 is getting a hair-cut 
Customer 6 is getting a hair-cut 
Customer 7 is getting a hair-cut 


lting room is full customer 2 will leave 


3 
0 
۳ 


waiting room is full customer 10 will leave 


waiting room is full customer 5 will leave 


waiting room is full customer 6 will leave 


Hh Hh Hh HH HH 


waiting room is full customer 7 will leave 
Customer 8 is getting a hair-cut 
9 is getting a 
Customer 3 is getting a hair-cut 
4 is getting a 


Customer haltE-=GUl 


Customer HALE ECE 


الحل باستخدام Package‏ 


-- Barbershop program Using Ada (Package) 
-—- Author Moustafa Najm ............ MN : MOUStafa-MNERNoOEMaLL CoM 


-- This file contains the interface definition for the Barbershop 
-- Barbershop.Ads 
generic 

Num Chairs : Positive; 


package BarberShop is 


subtype Customer is Positive; 
type Barber Queue is array (Positive range 1..Num_ Chairs) 
of Customer; 


protected Barber Chairs is 


function Is_ Full return Boolean; 
entry Take Chair (The Customer : in Customer); 
entry Wait _ For Customer (The Customer : out Customer); 


private 
Queue : Barber Queue; 
Next Available : Positive := 1; 
Next Customer : Positive := 1; 
Num Waiting : Natural := 0; 

end Barber Chairs; 


task Barber is 
EnNÈEEY SEOP? 
end Barber; 


task Demo Master; 


end BarberShop; 


-- This file contains the implementation of the Barbershop 


) when not Is_ Full is 


:= The Customer; 
= Num Chairs then 


Package Body BarberShop 


Protected Unit barber chairs 


in Customer 


-- BarberShop.adb 


with Ada.Text lo; 
use Ada.Text_ Io; 


package body BarberShop is 


protected body Barber Chairs is 


function Is_Full‏ چ یو ی کے 
function Is_ Full return Boolean is‏ 
begin‏ 

return Num Waiting = Num Chairs; 


end Is_Full; 


Entry Take chair‏ و چ چ کے چ چ ب کے 

entry Take Chair (The Customer 
begin 

Queue (Next Available) 

if Next Available 


Next Available := 1; 
else 

Next Available := Next Available + 1; 
end if; 
Num Waiting := Num Waiting + 1; 


out Customer ) when Num Waiting > 


(Next Customer) ; 


E. 


( The Customer 


= Num Chairs then 


end Take Chair; 


Entry Wait _ For Costomer‏ ت ی ی چ ی کک چ ی و چ 


entry Wait _ For Customer 
0 is 

begin 
The Customer := Queu 
if Next _ Customer 


Next Customer 8 
else 
Next Customer := Next Customer 


end IE; 
end Wait_ For Customer; 


end Barber Chairs; 
E Sa SE E RNS SS SS a i Task Type 
task body Barber is 

Current Customer Customer; 
begin 

loop 


select 
Barber Chairs.Wait_ For Customer (Current Customer) ; 
Put_ Line ("Serving customer" & Customer' Image (Current Customer) ); 


delay 2.0; -- a 2 second hair cut 

else 
delay 1.0; -- sleep one second waiting for a customer 
select 


accept Stop; 
exit; 
else 
delay 0.0; 
Put Line ("ZZZZIZIZIZT) 
end select; 
end select; 
end loop; 


end Barber; 


task body Demo Master is 


Cust_ Max : constant Customer := 20; 
begin 
delay 2.0; 
for Cust in 1..Cust_ Max loop 
delay 0.5; 


if not Barber Chairs.Is_Full then 

Barber Chairs.Take_ Chair (Cust); 

Put_ Line ("Customer" & Customer' Image (Cust) &" took a chair 
in the barber shop."); 
else 


Put_ Line ("Shop full, customer" & Customer' Image (Cust) &"left shop"); 
end if; 
end loop; 
delay 3.0; 
Barber.Stop; 
end Demo Master; 
end BarberShop; 


a e i a STE ERQ. BACKAIE.BOQAY BAEDEESIOD Sa a 
-- This file contains Main Procedure 
-- Barber Main.adb 


with Barbershop; 
procedure Barber Main is 
package Small Shop is new BarberShop (Num Chairs => 5); 


begin 
NaI E 
end Barber Main; 


الثذة ۰ 


ZZZZZZZZZZ 

ZZZZZZZZZZ 

Customer 1 took a chair in the barber shop. 
Customer 2 took a chair in the barber shop. 
ZZZZZZZ2ZZ 

Serving customer 1 

Customer 3 took a chair in the barber shop. 
Customer 4 took a chair in the barber shop. 
Customer 5 took a chair in the barber shop. 
Serving customer 2 

Customer 6 took a chair in the barber shop. 
Customer 7 took a chair in the barber shop. 
Shop full, customer 8 left shop 

Shop full, customer 9 left shop 

Serving customer 3 

Customer 10 took a chair in the barber shop. 
Shop full, customer 11 left shop 

Shop full, customer 12 left shop 

Shop full, customer 13 left shop 

Serving customer 4 

Customer 14 took a chair in the barber shop. 
Shop full, customer 15 left shop 

Shop full, customer 16 left shop 

Shop full, customer 17 left shop 

Serving customer 5 

Customer 18 took a chair in the barber shop. 
Shop full, customer 19 left shop 

Shop full, customer 20 left shop 

Serving customer 6 

Serving customer 7 

Serving customer 10 

Serving customer 14 

Serving customer 18 


تم ډحونه ذحالی oe©ee‏ 


Moustafa-MNO@Ohotmail.com 


Moustafa Najm 


